home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / complib / CHISL.z / CHISL
Text File  |  1998-10-30  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCHHHHIIIISSSSLLLL((((3333FFFF))))                                                            CCCCHHHHIIIISSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CHISL   - CHISL solves the complex Hermitian system A * X = B using the
  10.      factors computed by CHIFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CHISL(A,LDA,N,KPVT,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA COMPLEX(LDA,N)
  20.         the output from CHIFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array  A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix  A .  KVPT    INTEGER(N)
  27.         the pivot vector from CHIFA.
  28.  
  29.      BBBB COMPLEX(N)
  30.         the right hand side vector.  On Return
  31.  
  32.      BBBB the solution vector  X . Error Condition
  33.  
  34.      AAAA division by zero may occur if  CHICO  has set RCOND .EQ. 0.0 or  CHIFA
  35.      has set INFO .NE. 0  .  To compute  INVERSE(A) * C  where  C  is a matrix
  36.      with  P  columns
  37.         CALL CHIFA(A,LDA,N,KVPT,INFO)
  38.         IF (INFO .NE. 0) GO TO ...
  39.         DO 10 J = 1, p
  40.         CALL CHISL(A,LDA,N,KVPT,C(1,J)) 10 CONTINUE LINPACK.  This version
  41.      dated 08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
  42.      Subroutines and Functions BLAS CAXPY,CDOTC Fortran CONJG,IABS
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.